home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2002 #11 / Amiga Plus CD - 2002 - No. 11.iso / Tools / Development / Feelin021015 / Examples / 02.e < prev    next >
Encoding:
Text File  |  2002-10-28  |  1.9 KB  |  81 lines
  1. OPT PREPROCESS
  2.  
  3. MODULE 'feelin','libraries/feelin'
  4.  
  5. PROC main()
  6.    DEF c,w,id
  7.  
  8.    IF feelinbase := OpenLibrary('feelin.library',FV_VERSION)
  9.       c := ClientObject,
  10.          FA_Pen_Shine,     'c:BED2F0',
  11.          FA_Pen_Fill,      'c:82B4F0',
  12.          FA_Pen_Dark,      'c:003CAA',
  13.          FA_Pen_Text,      'c:FFFFFF',
  14.          FA_Pen_Highlight, 'c:2878C8',
  15.  
  16.          Child, w := WindowObject,
  17.             FA_Back,          '2:Feelin:Images/StripBlue.iff',
  18.             FA_Window_Title,  'Feelin', FA_Window_ScreenTitle, 'Feelin : Some buttons',
  19.  
  20.             Child, VGroup,
  21.                Child, VGroup, GroupFrame, FA_Frame_Title, 'Poids différents...',
  22.                   Child, HGroup,
  23.                      Child, SimpleButton('_Lotan'),
  24.                      Child, SimpleButton('_is'),
  25.                      Child, SimpleButton('my L_ord'),
  26.                   End,
  27.  
  28.                   Child, BarTitle('Youpi'),
  29.  
  30.                   Child, HGroup, FA_Group_RelSizing,TRUE,
  31.                      Child, SimpleButton('Lotan'),
  32.                      Child, SimpleButton('is'),
  33.                      Child, SimpleButton('my Lord'),
  34.                   End,
  35.  
  36.                   Child, Bar,
  37.  
  38.                   Child, HGroup,
  39.                      Child, SimpleButton('Loooooooooootan'),
  40.                      Child, SimpleButton('is'),
  41.                      Child, SimpleButton('my Lord'),
  42.                   End,
  43.                End,
  44.  
  45.                Child, BarTitle('Inputs'),
  46.                Child, BarTitle('Very long line name, that is very long indeed'),
  47.  
  48.                Child, HGroup, GroupFrame, FA_Frame_Title,'Inputs, very long long so long line',
  49.                   Child, button('I_mmediate',FV_InputMode_Immediate),
  50.                   Child, button('_Toggle',FV_InputMode_Toggle),
  51.                   Child, button('Release',FV_InputMode_Release),
  52.                End,
  53.             End,
  54.          End,
  55.       End
  56.  
  57.       IF c
  58.          F_DoA(w,FM_Notify,[FA_Window_CloseRequest,TRUE,FV_Notify_Client,2,FM_Client_ReturnID,FV_Client_Quit])
  59.          F_Set(w,FA_Window_Open,TRUE)
  60.  
  61.          F_DoA(c,FM_Client_Run,NIL)
  62.  
  63.          F_DisposeObj(c)
  64.       ENDIF
  65.  
  66.       CloseLibrary(feelinbase)
  67.    ELSE
  68.       WriteF('Unable to open feelin.library\n')
  69.    ENDIF
  70. ENDPROC
  71.  
  72. PROC button(name,input)
  73.    RETURN TextObject,
  74.          FA_Text,name,
  75.          ButtonFrame,
  76.          ButtonBack,
  77.          FA_FixedHeight,TRUE,
  78.          FA_Text_PreParse,'`c',
  79.          FA_InputMode,input, End
  80. ENDPROC
  81.